home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
+system+
/
tools
/
sound
/
ahi
/
developer
/
devloper.lzx
/
examples
/
Low-level
/
PTdatatype
/
RomTag.a
< prev
next >
Wrap
Text File
|
1979-12-22
|
1KB
|
77 lines
**
** AIFF DataType
**
** Written by Olaf `Olsen' Barthel <olsen@sourcery.han.de>
** Public domain
**
** :ts=8
**
include "exec/tasks.i"
include "exec/types.i"
include "exec/nodes.i"
include "exec/resident.i"
include "lvo/exec_lib.i"
include "protracker.datatype_rev.i"
xref LibInitTab
section text,code
*----------------------------------------------------------------------
*
* The first executable instruction of this module; recycled as
* the reserved library entry function.
*
*----------------------------------------------------------------------
xdef @LibNull
@LibNull:
moveq #0,d0
rts
*----------------------------------------------------------------------
InitDesc:
dc.w RTC_MATCHWORD
dc.l InitDesc
dc.l EndCode
dc.b RTF_AUTOINIT
dc.b VERSION
dc.b NT_LIBRARY
dc.b 0
dc.l LibName
dc.l LibID
dc.l LibInitTab
EndCode:
*----------------------------------------------------------------------
LibName:
dc.b 'protracker.datatype',0
LibID:
VSTRING
*----------------------------------------------------------------------
cnop 0,2
XDEF SlaveProcEntry
XREF SlaveEntry
SlaveProcEntry:
move.l 4.w,a6
suba.l a1,a1
jsr _LVOFindTask(a6)
move.l d0,a0
move.l TC_Userdata(a0),a6
jmp SlaveEntry
*----------------------------------------------------------------------
end